home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs45.d81 / knight (.txt) < prev    next >
Commodore BASIC  |  2009-10-10  |  5KB  |  24 lines
  1. 0 POKE53280,0:POKE53281,0:FORI=54272TO54300:POKEI,.:NEXT:POKE54296,31:POKE54295,241:POKE54293,0:POKE54294,100:PRINT"[147][152]"TAB(213)"THE KNIGHTRIDER":PRINTTAB(89)"PROGRAMMED BY ARCH ANGEL":PRINTTAB(91)"A.K.A. LARRY PHELPS":PRINTTAB(84)"THIS PROGRAM WAS MADE ON 12-28-85
  2. 1 [131]0,0,0,1,1,35,1,52,1,70,1,90,1,110,1,132,1,155,1,179,1,205,1,233,2,6,2,37,2,69,2,104,2,179,2,220,3,8,3,54,3,103,3,155,3,210,4,12,4,73,4,139,4,208,5,25,5,103,5,185,6,16,6,108,6,206,7,53,7,163,8,23,8,147,9,21,9,159
  3. 2 [131]10,60,10,205,11,114,12,32,12,216,13,156,14,107,15,70,16,47,17,37,18,42,19,63,20,100,21,154,22,227,24,63,25,177,27,56,28,214,30,141,32,94,34,75,36,85,38,126,40,200,43,52,45,198,48,127,51,97,54,111,57,172,61,126
  4. 3 [131]64,188,68,149,72,169,76,252,81,161,86,105,91,140,96,254,102,194,108,223,115,88,122,52,129,120,137,43,145,83,153,247,163,31,172,210,183,25,193,252,205,133,217,189,230,176,244,103:[134]L(94),H(94)::[129]I[178]0[164]94:[135]H(I),L(I):[130]:TI$[178]"000000
  5. 4 S1=54272:S2=S1+7:S3=S2+7:POKES1+5,8:POKES1+6,0:POKES1+2,0:POKES1+3,14:POKES2+5,3*16+7:POKES2+6,0:POKES2+2,0:POKES2+3,2:POKES3+5,12:POKES3+6,5*16:FORI=1TO1435STEP3:READA,B,C:POKES1,L(A):POKES1+1,H(A):POKES1+4,68:POKES1+4,69:POKES2,L(B):POKES2+1,H(B):POKES2+4,68:POKES2+4,69
  6. 5 IFCTHENPOKES3,L(C):POKES3+1,H(C):POKES3+4,36:POKES3+4,37:GOTO7
  7. 6 FORT=1TO50:NEXT:NEXT
  8. 7 FORT=1TO30:NEXT:NEXT:END:DATA50,31,0,0,31,0,51,0,0,50,0,0,50,0,0,51,0,0,50,0,0,50,0,0,51,31,0,50,31,0,50,0,0,50,0,0,49,0,0,50,0,0,50,0,0,50,0,0,50,31,0,0,31,0,51,0,0,50,0,0,50,0,0,51,0,0,50,0,0,50,0,0,51,31,0,50,31,0,50,0,0,50,0,0,49,31,0,50,31,0,50,0,0,50,0,0
  9. 8 DATA48,29,0,0,29,0,49,0,0,48,0,0,48,0,0,49,0,0,48,0,0,48,0,0,49,29,0,48,29,0,48,0,0,48,0,0,47,0,0,48,0,0,48,0,0,48,0,0,48,29,0,0,29,0,49,0,0,48,0,0,48,0,0,49,0,0,48,0,0,48,0,0,49,29,0,48,29,0,48,0,0,48,0,0,47,29,0,48,29,0,48,0,0,48,0,0,50,31,50,0,31,0
  10. 9 DATA51,0,51,50,0,50,50,0,55,51,0,0,50,0,0,50,0,0,51,31,0,50,31,0,50,0,0,50,0,0,49,0,0,50,0,0,50,0,0,50,0,0,50,31,62,0,31,0,51,0,63,50,0,62,50,0,55,51,0,0,50,0,0,50,0,0,51,31,0,50,31,0,50,0,0,50,0,0,49,0,0,50,0,0,50,0,0,50,0,0,50,31,50,0,31,0,51,0,51
  11. 10 DATA50,0,50,50,0,55,51,0,0,50,0,62,50,0,0,50,31,60,48,31,60,48,0,0,48,0,0,47,0,0,48,0,0,48,0,0,48,0,0,48,29,0,0,29,0,49,0,0,48,0,0,48,00,0,49,00,0,48,0,0,48,0,0,49,29,1,48,29,0,48,0,0,48,0,0,47,29,0,48,29,0,48,0,0,48,0,0,50,31,50,0,31,0,51,0,51,50,0,50
  12. 11 DATA50,0,55,51,0,0,50,0,0,50,0,0,51,31,0,50,31,0,50,0,0,50,0,0,49,0,0,50,0,0,50,0,0,50,0,0,50,31,62,0,31,0,51,0,63,50,0,62,50,0,55,51,0,0,50,0,0,50,0,0,51,31,0,50,31,0,50,0,0,50,0,0,49,0,0,50,0,0,50,0,0,50,0,0,50,31,50,0,31,0,51,0,51,50,0,50,50,0,55
  13. 12 DATA51,0,0,50,0,62,50,0,0,50,31,63,48,31,63,48,0,0,48,0,0,47,0,0,48,0,0,48,0,0,48,0,0,48,29,0,0,29,0,49,0,0,48,0,0,48,00,0,49,00,0,48,0,0,48,0,0,49,29,0,48,29,0,48,0,0,48,0,0,47,29,0,48,29,1,48,0,0,48,0,0,50,31,0,0,31,0,51,0,0,50,0,0,50,0,0,51,0,0
  14. 13 DATA50,0,0,50,0,0,51,31,0,50,31,0,50,0,0,50,0,0,49,0,0,50,0,0,50,0,0,50,0,0,50,31,0,0,31,0,51,0,0,50,0,0,50,0,0,51,0,0,50,0,0,50,0,0,51,31,0,50,31,0,50,0,0,50,0,0,49,31,0,50,31,0,50,0,0,50,0,0,48,29,0,0,29,0,49,0,0,48,0,0,48,0,0,49,0,0,48,0,0,48,0,0
  15. 14 DATA49,29,0,48,29,0,48,0,0,48,0,0,47,0,0,48,0,0,48,0,0,48,0,0,48,29,0,0,29,0,49,0,0,48,0,0,48,0,0,49,0,0,48,0,0,48,0,0,49,29,0,48,29,0,48,0,0,48,0,0,47,29,0,48,29,0,48,0,0,48,0,0,50,31,50,00,31,0,51,0,51,50,0,50,50,0,55,51,0,0,50,0,0,50,0,0,51,31,62
  16. 15 DATA50,31,0,50,0,63,50,0,62,49,0,55,50,0,0,50,0,0,50,0,0,50,31,50,00,31,0,51,0,51,50,0,50,50,0,55,51,0,0,50,0,62,50,0,0,50,31,60,48,31,60,48,0,0,48,0,0,47,31,0,48,31,0,48,0,0,48,0,0,48,29,0,00,29,0,49,0,0,48,0,0,48,0,0,49,0,0,48,0,0,48,0,0,49,29,1
  17. 16 DATA48,29,0,48,0,0,48,0,0,47,0,0,48,0,0,48,0,0,48,0,0,48,29,0,00,29,0,49,0,0,48,0,0,48,0,0,49,0,0,48,0,0,48,0,0,49,29,0,48,29,0,48,0,0,48,0,0,47,29,0,48,29,0,48,0,0,48,0,0,50,31,50,00,31,0,51,0,51,50,0,50,50,0,55,51,0,0,50,0,0,50,0,0,51,31,62,50,31,0
  18. 17 DATA50,0,63,50,0,62,49,0,55,50,0,0,50,0,0,50,0,0,50,31,50,00,31,0,51,0,51,50,0,50,50,0,55,51,0,0,50,0,62,50,0,0,50,31,63,48,31,63,48,0,0,48,0,0,47,31,0,48,31,0,48,0,0,48,0,0,48,29,0,00,29,0,49,0,0,48,0,0,48,0,0,49,0,0,48,0,0,48,0,0,49,29,1,48,29,0
  19. 18 DATA48,0,0,48,0,0,47,0,0,48,0,0,48,0,0,48,0,0,48,29,0,00,29,0,49,0,0,48,0,0,48,0,0,49,0,0,48,0,0,48,0,0,49,29,0,48,29,0,48,0,0,48,0,0,47,29,0,48,29,0,48,0,0,48,0,0,50,31,0,0,31,0,51,0,0,50,0,0,50,0,0,51,0,0,50,0,0,50,0,0,51,31,0,50,31,0,50,0,0,50,0,0
  20. 19 DATA49,0,0,50,0,0,50,0,0,50,0,0,50,31,0,0,31,0,51,0,0,50,0,0,50,0,0,51,0,0,50,0,0,50,0,0,51,31,0,50,31,0,50,0,0,50,0,0,49,31,0,50,31,0,50,0,0,50,0,0,48,29,0,0,29,0,49,0,0,48,0,0,48,0,0,49,0,0,48,0,0,48,0,0,49,29,0,48,29,0,48,0,0,48,0,0,47,0,0,48,0,0
  21. 20 DATA48,0,0,48,0,0,48,29,0,0,29,0,49,0,0,48,0,0,48,0,0,49,0,0,48,0,0,48,0,0,49,29,0,48,29,0,48,0,0,48,0,0,47,29,0,48,29,0,48,0,0,48,0,0,50,31,50,0,31,50,51,0,50,50,0,50,50,0,50,51,0,50,50,0,50,50,0,50,51,31,55,50,31,55,50,0,55,50,0,55,49,0,55,50,0,55
  22. 21 DATA50,0,55,50,0,55,50,31,62,0,31,62,51,0,62,50,0,62,50,0,62,51,0,62,50,0,62,50,0,0,51,31,0,50,31,63,50,0,62,50,0,0,50,0,67,50,31,67,0,0,1
  23. 6682 
  24.